RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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ZTITLE ‘Overa Ut DSR preven. gal 

MODULE runoff ( IDEN 
4BLISS32C, ADDRESSING_MODE (EXTERNAL = ponerse 
' NONEXTERNAL = Cong_ a ettvers)] 


BEGIN 'Start of module 


1 
Lee RR ERE EOE AREA ARERR ERE EERE ERE ERATE AEE EAA 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
iw DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:® THIS SOFTWARE 4 FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
:® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
- vhanstchatee” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: ORPORAT Ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


e@eneneenenenenenenennennnnnne 


PITTTITILILILI LILI LILI LITT LLL LiL li Liiiiiiiiiiiiiiiiiiiii 
i 


ie¢ 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


' 
: ABSTRACT: Main program. 
ENVIRONMENT: Transportable 
; AUTHOR: R.W. Friday CREATION DATE: April, 1978 
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; rf Re) 1! 3 
oe 1 1 ! MODIFIED BY: 3 
; 644 045 1! $ 
; 63 044 1! 040 REROOOLO Marshall 25-Mar-1984 F 
>; 46 045 1! Fixed the call Ay IBSFIND_FILE. The new user flags parameter : 
: ref Brg : must be passed by poterelsa. not value. : 
: 49 4g 1} 039 REM00039 ay Marshall 16-Feb <-> 15-Mar-1984 : 
3 29 049 1! Aided routine INEG ipicegs wee to make appropriate calls to 3 
; 1 050 1! + y spite 3 $s code se support errectery senree : 
; 26 0051 1! strin gi¢ 8 iF in VMS V4, and as such : 
; 3 003¢ 1 i condi on alized to only wena for VMS and will be aly ; 
; 4 0055 1! excute on 3," V4 or later system. It will only be compiled 3 
: 2 Oped ! into BLISS32 leplonentations. : 
: 57 0056 1} 038 KFA00038 Ken Alden \eeaug -1983 F 
7c. ae 0057 1! Fixed a /auto bug that forces a second run if any crefs 3 
: > 4 Boe8 : were unresolved (usu. a forward reference). : 
: 61 0060 1 | 037 REM00037 ay Marshall 9-Aug-1983 : 
3 o¢ 0061 1! ag AC the inite ile Logis to support DSRPLUS. ey and F 
; § B00g 1! F.INIT in the TOPS-20 implementation of DSRPLUS : 
: ee Bpez : astanioat the logicals used in the VMS s clenenant tanks : 
: 66 0065 1! 036 REM00036 Ray Marshall 22-Jul-1983 ; 
: of Bes ’ } defined ¢ Trvser and ENAPSI as NOVALUE to match the way they : 
: 69 0068 1! Moved GCA. PASS_COUNT out of being BLISS32 specific because : 
$ 70 0069 1! it is ldoked at in the routine OUTCREF which is part of all : 
3 4 A : laolaeantes tenn of DSRPLUS. : 
Te 0072 1! 035 KFA00035 Ken Alden 15-Jul-1983 : 
3 a Oobd : Tweaked the /auto logic to prevent a premature MEM file. : 
5 7% 0075 1! 034 KFA00034 Ken Alden 28-Jun-1983 : 
; a Bore : Added formal parameter to the SETQUICK call. ; 
oR: 0078 1: 033 KFA00033 Ken Alden 27-Jun-1983 : 
: 80 0079 1! Added more logic to the setquick check using the cref_errcnt ; 
; + Bees : as an additional check item. ; 
: 8 0082 1 | 032 KFA00032 n Alden 24-Jun-1983 : 
>. & 083 1! This ons change oF oxoctia what 31 was supposed to do. : 
3 $3 084 1! The b 19? ores i F uae the g¢a.. eit 1h was getting turned d 
3 085 1! off after irst run, pe net, gca_black_box : 
3 Hi Boae : is not ih, ae Fit cad ve coeae is 

: 89 0088 1! 031 KAD00031 Keith Dawson 7=Jun-1983 

; 0089 1! Minor tweak to the foregoing: make sure no .MEM is gen- 

oo 00 1! erated (QUICK is set) on reruns caused because a cross- 

3 3 009 : reference changed. 

: Ol 093 1 | 030 —_ KAD00030 Keith Dawson 27-May-1983 

; 6495 094 1! For DSRPLUS/AUTO, check number of iterations for Cref oscil- 

3 38 54 ' } lation; quit after the 4th pass. 

: 98 0097 1: 029 KAD00029 Keith Dawson 17-May-1983 
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For FLIP, add TCXINI record to initialization records 
written to the .BFL file. 
028 REM00028 Ray Marshall 10-May-1983 
RNFXFL has been removed, so the reference herein used to check 
for parallelism of MSGTXT.REQ (via RNFERM.BLI) with 
DSRMSG.MSG (or DPLMSG.MSG for DSRPLUS) has been changed to 
refer to RNFWFR. 
027 KAD00027 Keith Dawson 33-May-1983 
Fix bug: if /AUTO, any errors in Pass 1 would stop processing. 
026 KAD00026 Keith Dawson 19-Apr-19 


83 
Fixed bug whereby the results of /DEVICE were not getting 
picked up in DSR. 


025 KAD00025 Keith Dawson 5-Apr-1983 
Full support for /CROSS and /AUTO. 


024 KAD00024 Keith Dawson 23-March-1983 
Changed GCA_FLIP bit to (.gca_op_dev EQL op_dev_flip). 


023 REMO0023 Ray Marshall 07-Mar-1983 
Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 
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TABLE OF CONTENTS: 


REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
FORWARD ROUTINE 
runoff, 


grab resultant, 
ZIF OSRPCUS XTHEN 
init_files : NOVALUE, 


Fl 
Z1F XBLISS(BLISS32) XTHEN 
input_file_scan, 


input_ loop; 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:STARLET'; 


undeclare Zquote SDESCRIPTOR; 
'undeclare Zquote RMSS$_FNF; 
'undeclare Zquote RMS$_NORMAL; 


If we're running on VAX/VMS, the specified return code is used, 
with bit 28 set to inhibit generation of an error message. 
On other systems the specified code is returned without modification. 


MACRO 
creturn (return_code) = 
ZIF XBLISS TBLISS36) XTHEN 
RETURN 1 


LIBRARY "NXPORT:XPORT’; ! XPORT Library 

ZIF DSRPLUS XTHEN 

LIBRARY "REQ:DPLLIB’: ! DSRPLUS BLISS Library 
LIBRARY "REQ:DSRLIB': ! DSR BLISS Library 

' 

i MACROS: 

This macro returns ‘1’ if RUNOFF is running on TOPS-10 or TOPS-20. 
; 


RETURN return_code esr 
+ SIF 20, ISS(GLISSS2) XTHEN 1°28 ! Set inhibit message bit 


2FI 
z, ! End of macro CRETURN 
close_i o.end_return (delete, return_value) = 


BEGT 
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v04-000 -Sep-1984 RUNOFF .SRCJRUNOFF .BL (3) 
> 183 M0311 1 clh (clh_close_input); 

> «(184 MO \ 1 ! Close output tile unless quick processing (no output file opened). 
; «6185 M0313 1 IF NOT .rno cmd Erno$v quick] THEN 

; «(186 M0314 1 ' Delete output file if user requested. 

s 187 mO315 1 BEGIN 

> «(188 ful 1 1 iF delete 

; «189 M0317 1 THEN clh (clh_close_del_out) 

: 190 M 8 18 1 ELSE clh (clh-close_out); 

i 193 m 0300 | ce trek Lue) 

3 creturn (return_value); 

138 m 0352 | oe % ! End of CLOSE_1_0_AND_RETUR 
; : ! End of macro CL AN URN 
on ee “12.00, 

: 196 0324 1 ! OWN STORAGE: 

; 197 0325 1! 

; 198 0326 1 OWN 

; 199 U 0327 1 XIF DSRPLUS %THEN 

3 sot U Ba56 : . init_file_error, ! Error flag for opening DSRCPLUSISINIT 

: $06 $350 1 file_error, ! Error flag for main file processing 

; 0331 1 tempob : $XPO_IOB (), ' 108 for output file 

; 204 Oras 1 tempib : $XPO_I0B (); ! 108 for primary input file 

; 205 0333 1 

; 206 0334 1! 

; 207 0335 1 ! EXTERNAL REFERENCES: 

; 208 0336 1! 

; 209 0337 1 EXTERNAL 

; 210 0338 1 rneio REF $XPO_I0B (), 

3 64) 0339 1 rnaiob : REF $XPO_I0B (), 

; si¢ 0340 1 rnoiob : REF $XPO_I0B (), 

$ 0341 1 tteiob : $xP0_I0B () 

; 214 4 1 ffname : $STR-DESCRIPTOR (CLASS = dynamic), ! Failing file's name 

s. 213 0343 1 semcod, ! Secondary Error Message CODe 
; ew 0344 1 ce 3 952.def inition. 

>; 217 0345 1 ra : Tixed steing 

; 218 0346 1 irac : irac_definition, 

; 219 0347 1 fsO1 : fixed_string, 

3 6¢e0 0348 1 Lffctx, ! LIBSFIND_FILE context cell 

; $1 0349 1 ipftyp. ' InPut File TYPe index 

3 $§ 0350 1 ipftop : VECTOR, ! InPut File Type OPtions List 

. ge 0351 1 khar; 

: 224 O3eg 1 

$ gee B32 1 

; $8 354 1 EXTERNAL ROUTINE 

$s 0355 1 clh, doopts, erm, erme, 

$8 B329 : erms, pus, rinit, rterm 

; $9 0358 1 XIF XBLISS (BLISS32) XTHEN , 
B gol 0359 1 
: 3 U 0360 1 ZIF DSRPLUS THEN 

3; 23 U Bee) 1 setquick, 

: 234 306 1 FI : 

: 235 0364 : -_ LIBSFIND_FILE ! NEEDED to resolve search strings on VMS! 

3 i 

; 65 1 

3 H U $3 1 SIF (2BLISS(BLISS36) AND DSRPLUS) XTHEN P 

: 239 U 0367 1 enapsi : NOVALUE, ! Enable CTRL/C PSI interrupt. 
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; 240 U 0368 1 ; 
3 241 : 1 %FI 3 : 
; 24 1 : 
: 24 71 1 «EXTERNAL LITERAL ; 
> 244 8 e 1 rnfcoi, : F = Can't open input file ‘Zs’ : 
> 245 i, 4 rnfcoo, : F = Can't open output file ‘%s' : 
> 246 0374 1 rnffab, ' W- File aborted : 
3 247 B3o2 1 rnfrtl, ! W = Input record too long: truncated ‘'%S"’ : 
3 sts B38 : rnfure ! W = Unrecoverable error processing record %C on page %I of input file ‘'%F'’ ; 
; 250 0378 1 XIF XBLISS(BLISS32) XTHEN . 3 
: $2] 8 79 «41 ! Special error messages used to detect and signal bad error message : 
3 26 80 1 ! pointers: ; 
; 8 81 1 rnfwfr, ! Last error defined by the message usi tity, : 
> 254 386 1 last.rnf, ! Last error defined by RNFERM and MSGTXT.REQ ; 
3 22 Oae7 : rnfaaa, ! Message used to signal the inequality of the previous two : 
3; gor U 0385 1 XIF dsrplus XTHEN : ; : 
; 258 U Bree 1 rnfoft, ! File type ‘.RNO’' not found. Processing file ‘'%F' : 
> 259 0387 1 XFI : 
; 260 0388 1! RMSS_FNF, ! VMS RMS error code: File Not Found : 
; 32) 494 : ert RMS$_NORMAL,! VMS RMS return code: Normal return ; 
; 263 0391 1 ipftct; ! Literal defining the lengths of IPFTOP and OPFTOP. : 
> 264 0392 #1 : 


ttyset : NOVALUE ' Set (save) terminal characteristics. 
| 
| 
| 
| 
| 
| 
| 
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> 266 0393 1 GLOBAL ROUTINE runoff (rno_cmd) = : 
; 267 8 94 (1 = $ 
; 268 95 1 S++ : 
H +4 0 38 ; } FUNCTIONAL DESCRIPTION: : 
; 271 6 98 1! This is the main program of RUNOFF. The basic processing involves . 
; 2 0399 1! calling CLH to open and close files, and read records that get passed ; 
; ef Beos 1! to PUS. RINIT and RTERM are only gerginatty related to the formatting : 
: a beo. : processing, being used for initialization and termination. : 
: re pc08 ! FORMAL PARAMETERS: None ; 
; ee bc03 1 ! IMPLICIT INPUTS: None 3 
; 279 rey 1! : 
; 80 B26 1 ! IMPLICIT OUTPUTS: None : 
; 281 408 1! : 
; 0409 1 ! ROUTINE VALUE: : 
3; 2 0410 1 ! COMPLETION CODES: None : 
; She 0411 1! : 
> 285 Behg 1 ! SIDE EFFECTS: None 3 
; seo 0413 1 !-- 3 
; 287 0414 1 : 
: $68 Belz : BEGIN 'Start routine RUNOFF : 
; $30 0417 MAP : 
> 291 0418 rno_cmd : REF $rno_cmd; : 
: $36 0419 LOCAL 3 
; 29 0420 ZIF XBLISS(BLISS32) XTHEN : 
> 294 0421 status ! Return value from INPUT_FILE_SCAN routine 3 
3 2? 04 § input_file name : ' Receiving string descriptor 3 
: $36 8 Z “Fi SSTR_DESCRIPTOR (CLASS = dynamic), : 
; $98 be 5 clh_result. ! Result of CLH operation : 
; 299 426 keep_reading, ' Controls input-reading loop : 
; 300 bose hold_cref_errcnt, ' Remembers gca_cref_errcnt over RINIT. : 
3 04 : hold_cref_changed; ! Remembers gca_cref_changed over RINIT : 
; U 686 ZIF DSRPLUS ZTHEN : 
3 U 04 '¢ 3 
; ! Initialize automatic variables 3 

: ; Initiali i iabl : 
: U & ca_pass_count = 1; ! Current pass over input file : 
; 308 U 33 xr YerT$s (BL1ss32) XfHEN , s : 
3 gca_rerun_count = 0; ' Number of times input e must be reprocesse : 

109 U 04 ' Numb f ti i fil b d 

; 310 U 04 gca_cref_errcnt = 0; ! No cross-references nave been unresolved yet. : 
: 3 ¥ bees gca_cref_changed = false; ! No cross-references have changed. : 
3 i U 0440 WHILE true DO : 
3 \ ¥ red BEGIN ! Start of automatic-processing loop : 
: 1g Y cas } Reprocess the input file until exit condition is met : 
: 318 U 0445 hold_cref_errcnt = .gca_cref_errcnt; : 
: ph U “6 mr jhold.cref changed = .gca_cref_changed; : 
: 3 44 rneiob = tempib; : 
3 2 44 rnaiob = tempob; 3 


_ 
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$XPO_IOB_INIT (10B = .rnaiob, FILE_SPEC = rno_cmd Crno$t_output)); 
rinit 0; ! Initialize most everything. 
XIF RBLISS(BLISS32) XTHEN 
i Now we must see if the VMS message apg veins DSRMSG.MSG as input has 
! defined the same number of messages as RNFERM.BLI has put into the message 
' vector using MSGTXT.REQ as input. This is done by verifying that a global 
! defined in RNFERM.BLI (LAST_RNF) is equal to the Last message code defined 
i by the message utility (RNFQFR). If not, signal the FATAL error and exit! 


if rnfwfr NEQ Last_rnf 
THEN 


oO: 
Fe et et et et et ek ee et ee ee 
AOA) 
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. i 46 BEGIN 

: 34 046 erm (rnfaaa, 0, 0); 

; 34 0468 creturn (4) 

: 34 0469 END; 

; 34 0470 2FI 

: 34 0471 

; 047 ZIF XBLISS(BLISS32) XTHEN 

; 34 P 047 SSTR_DESC_INIT( DESCRIPTOR = input. filename 

; «34 0474 »CLASS = DYNAMIC); 

; $ 0475 !' Locate an input file 

; 34 0476 IF (status = input_file_scan (.rno_cmd, input_file_name)) EQL 4 

$ $2 Beet ' THEN creturn(.status) 

:. oo 0479 $XPO_IOB_INIT (JOB = .rneiob, FILE_SPEC = input_file_name); 

; U 0480 ZELSE : 

3 $2 U 0481 $XPO_IOB_INIT (I10B = .rneiob, FILE_SPEC = rno_cmd (Crno$t_input]); 
: = pees XFI 

s 3 48 ! 

: $2 0484 ! Now proceed with normal processing. 

: 38 bc Be 

3 rs a4 £4 clh_result = clh (clh_open_input); ! Try to open input file. 

; 36 0489 IF .clh result NEQ clh_normal 

; $0 0490 THEN : 
: 364 0491 BEGIN ' Start can't open input 
: 65 49 LOCAL 

$ $6 49 spec_length, 

: 36 494 spec_ptr; 

; 368 495 

; 369 49 spec_length = .f fname petrsh.lengehd; 

; A rh 44 spec_ptr = .ffname str$a_pointerd; 

: i rhs erme (rnfcoi, .spec_ptr, .spec_length, .semcod); 

3: 374 501 creturn (4) : 

; 375 206 END ! End can't open input 
3; CST 28 ELSE 

: oF 504 ! Did user spec ity quick processing? If so, don't open an output file. 
3: 37 4 A a cay rno$v_quick] 
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clh_result = clh_normal 
ELSE 
BEGIN 


i Pick up command-line information about /DEVICE now, 
so that output file defaults can be set up properly. 


gca_op_dev = .rno_cmd Crno$v_4_out_format]; ! Pick up device type. 
gca_s_output = .rno_cmd Crno$v_S_oufput); ! See if user said /OUTPUT=file. 
cth7résult = clh Tclh_open_outy; ! Open output file. 


RIF (BLISS (BLISS36) AND DSRPLUS) %THEN 


! The fot Loving call modifies the Control Character Output 

! Control (CCOC) words to allow escape sequences to be sent to 
! the terminal without gr ake aat and modifies the JFN mode 
! word to prevent TOPS=-20 from wrapping output Lines at the 
terminal width. 


09 09 CO CO 
Wr—o 


Nous 
Od td td td dd I IOOO 


VMrPWwrn— 


ccccccccccccccece 
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GOON 


if (9c op_dev EQL op_dev_vt100) ! User said /DEC=VT100, and did 
? $ AND NOT Vgca_s_output ! not say /OUTPUT=name. 
4 ¢ ttyset (); ! Set terminal characteristics. 
4 Enable the PSI CTRL/C interrupt. 
4 enapsi (); 
407 tf 1 
408 END; 
409 


gg ERE NEQ clh_normal 


BEGIN ' Start can't open output 
LOCAL 

spec_length, 

spec_ptr; 


spec_length = .ffname CSTRSH_LENGTH]; 
spec_ptr = .ffname STRSA~POINTERI; 


Can't open output file. 


8 a a ad te 4 Wt 


MEN —O0ONOUEWN “OC OONOUSWN—O 


erme (rnfcoo, .spec rik -spec_length, .semcod); 
clh (clh_close_inpuf); 
creturn (4) 
on ! End can't open output 
! Start normal file processing 
Z1F 1 THEN 


(.gca_op_dev EQL op_dev_flip) ! User said /DEVICE=FLIP 
BEGIN 


LOCA 
belt cecerd : Stl ip init, 
texini_record : $flip_tcxini; 


! Write FLIP initialization record. 


WR @§ 0 OOO NEW 0 ODNOAUE WIN $$ 0 ODNO UE WN (0 OONAU EWN SO CONOUE WI" O0On 
i 
~~ 
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ccccccccc 
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vou=000 : ep-1984 93: 09: 83 RUNOFF .SRC JRUNOFF .BLI; ot V 
: 437 U 0564 ! : 
3 <3 U 9 init_record Cinit_code] = flip$k init: : 
; § U $ initlrecord Linit_contents] = .rno cid rnosv, intermediate); ; 
; 440 U 056 init_record [init le rnedt = flip Fk _version; : 
> 441 U oe rno_ctmd [rno$v interned aye) = 1; : 
: 44 U 8 $xPO_PuT ( 108 : 
; 44 U Y STRING = (fl ipsk, init size, : 
; tte f CHSPTR (init. record))J; : 
: 44 u i ! Write FLIP index-information initialization record. : 
: 44 U 0575 "  texing crecordttexint code] = flip$k_tcxini; : 
> 44 U 6 gexini. recordltcxini sheader) = index _format; : 
; 450 U 057 xP noiob, 3 
3; «6451 U 278 STRING = (fl ipsk. tcxini_size, : 
; 12g U 9057 CHSPTR (tcxini_record))); : 
s 45 U 0580 END; : 
; $22 03 1 2FI : 
: 456 u 0888 § uF (XBLISS (BL1$$32) AND DSRPLUS) XTHEN ; 
; 457 U 0584 ! This Logi c makes sure we don't create a .MEM file for an : 
; 458 U 0585 ! intermediate run of /AUTO -- if the reason we need one more ; 
; oie 288 run is because a cross-reference changed. : 
; rod 7 4 iF Anne- cmd Crno$v_automatic]! gca_black_box ! Are we doing /AUTO? : 
; rh: U 356 ((,.hold_cref_changed EQL true) OR : 
; 464 uU 0591 ((hold= cref_errcnt GTR 0) AND (.gca_pass_count EQL 2))) ! One changed or was unresolved on ; 
3 ree : 238 AND .gc&_passS_count NEQ 4 ! Last chance, oscillating cref's. : 
; ret ¥ 0394 setquick (true); : 
: 469 U 0396 i The user may have had some forward crefs. : 
3 $n ¥ 0398 ; We give him the benefit of the doubt and run plus again. : 
; rtf 4 599 iF -hold_cref_errcnt GTR 0) AND (.gca_pass_count EQL 2) : 
: rth U Bens or gca_rerun_count = .gca_rerun_count + 1; : 
; 47 s IF NOT doopts ‘.rno_cmd) § 
: the 05 ener : 
: 479 Close and delete output file; return 4. : 
i; 4 3 3 close_i_o_and_return (true, 4) : 
; 481 8 ELSE 3 
3 : : ? BEGIN : 
: 6 19 4 "it the output file is the terminal, don't redirect perer messages. Otherwise, direct messages : 
3; 485 \ & specif he | on the /MESSAGES switch. The effect 5 that the user can determine where error mess : 
; 4 13 4 o only if the output file is not the terminal; i.e. ow cannot suppress error messages total F 
5 : 1 2 | Bee you can prevent them from going into the output ti : 
: 489 1¢ ; if NOT f. rnoiob Ciob$v_terminal] AND 3 
3 rey : ? .tteiob iob$v_terminal]) : 
: 49 15 4 gca_err_dir =.gca_cmd_msg; : 
; 49 U 0620 4 ZIF DSRPLUS ZTHE : 
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! Attempt to open initialization files DSRSINIT and/or 
DSRPLUSSINIT. 


init_files (.rno_cmd); 
END; 


<z 
am 


cccc 


2FI 


+ 
Here is RUNOFF's main processing Loop. 


keep_reading = true; 
file_error = false; 


WHILE .keep_reading DO 
keep_reading = input_loop (file_error); 


Check status of file errors, and finish up accordingly. 

IF NOT .file_error 
BEGIN ! Start normal termination 
rterm 0; 


MIF (XBLISS (BLISS32) AND DSRPLUS) %THEN 
Foie. pene,sount LEQ .gca_rerun_count 


BEGIN 

! Doing /AUTOMATIC capone ing and encountered either cross 
' references or a .DO CONTENTS that required more than one 
' pass over the input file. 


' 
' 
‘ 
' Quit now if we have processed the input stream 4 times. 
! In this case, we assume that an oscillating cross-refer- 
! ence makes it impossible for us to resolve the file 
automatically. 

I 


FSEESSEESSESSSESSSSS SSS SSS SSS LPP L OOPS. 


DUPGIDIDIDIVIVIUIU E & 


MEW 0 ODNOAUE WN 0 ODNAU EWN O OD NAUE WH (OO ONOU Sw 


F .gca_pass_count EQL 4 
THEN 


toe 


5: og" '000~1.0_0nd return (false, 2) 
' Bump the pass counter and close the input file (the 


: output file has already been closed). 


BEGIN 
gca_pass_count = .gca_pass_count + 1; 
an (clh_close_input); 


END 

ELSE 
! Either /AUTOMATIC was not asserted or all required passes 
' over the input file are complete. In any case, close the 
! input and output files and return the appropriate status. 


ecccccccccccccccccccecccccccceace 


Be 
~ 
a 


' Close output file (do not delete); return either success 
batts tres 


ee et tt tt tt tt ot ot ot ot ot ot ot ot tt oe oe 


TITLE 
- IDENT 


-PSECT 
00000 FILE_ERROR: 
BLK 


00004 TEMPOB: .BLKB 
OOOF8 TEMPIB: .BLKB 


-PSECT 
OFFC 00000 
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v04-000 

; 1 67 IF .gca_fehler 

3 ¢ oe : THEN _— 

; ? ? y ; close_i_o_and_return (false, 2) 

; 5 6 § close_i_o_and_return (false, 1); 

: 389 Ta te 

3 e28 eH 4 END ! End normal termination 

: 266 es? ! Close (don't delete) output file; return 4 (fatal condition). 
; See ret] close_i_o_and_return (false, 4); 

3 368 0890 END; ! End normal file processing 
: 565 U 069¢ ZIF (%BLISS (BLISS32) AND DSRPLUS) %THEN 

; 566 U 069 END; ! End of automatic-processing loop 
; 567 U 0694 true ‘avoid compiler complaint 

; 568 0695 xFI 

; 569 0696 1 END; ! End of RUNOFF 
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RNEIOB, RNAIOB, RNOIOB 
TTEIOB, FFNAME. SEMCOD 
GCA, IRA, IRAC. FSO1 
LFFCTX, IPFTYP. JPFTOP 
KHAR, CLH, DOOBTS 


RTERM 
, RNFFAB, RNFRTL 

RNFURE. RNFWFR. LAST_RNF 

RNFAAA, IPFTCT 

SCODES,NOWRT,2 

RUNOFF, Save R2,R3.R4,R5.R6,R7,R8.R9,R10,- 


FILE ERROR, R11 
FENARME, R10 


0B 
RNO_CMO, R7 
#0,"(SPS, #0, #244, (RO) 
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66 030100 gf 
04 Ke BORD 
020E f 
0800008 G 0 0 
0000000G 8F 000000006 , 
7E 
000000006 or 
000000006 00 3 
6E 020E0000 +f 
4 AE 
4080 F 
0000V CF ‘ 
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08 
50 10000000 €0 
56 000000006 00 
OOF4 = 8F 00 6E ” 
66 0301003D HF 
046 Ab ge 
1E A6 020E Bf 
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52 50 
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000000006 F 
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0088 
5 50 A 
2 01 
1€ 
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69 04 04 
50 4F 6A? 01 
69 01 03 2 
i 
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0 3 AA 
000000006 9 
00000000G_ 8F 
00000000G 00 3 
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36¢ 13:09:59 ERUnoFF’SReSRUNOFE BL 1; 


) 
A 
E 
naoes 936, ,SSTRSDESC 
hy 
<tNbOT. FILE_SCAN 
US, # 


i z 
oe RO 


RNE10B 
#0, eee). S00, #244, (RO) 


#50397245, (R6) 
Aze,, S0CRE) SPEC, 4(R6) 


i, CLH 
RO, CLH pesutt 
CLH_RESOLT, #1 


FFNAME, Pag LENGTH 
FFNAME+4, SPEC_P 


#*M<RO,R1> 
#R 


NF COL 
#4, ERME 


+ haat 5$ 
aie: RESULT 


#4, 78(R7) 


aR rein), § 


RO 
208 
RO 
#3, #1, GCA+20 
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E_ERROR, 17$ 
RTERM 
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oe 
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CLH 
10000002 14$:  MOVL 4268635458, RO 0682 


#3 
CALLS #1, tabs" 
50 B BOiR 16$ 


10000001 16$:  MOVL Hath gy RO 
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; Routine Size: 454 bytes, Routine Base: S$CODE$ + 0000 
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v04-000 1 =30 71387 93:69:83 RUNOFF .SRC RiMOE OL 4ef . (5) 
71 GLOBAL ROUTINE grab_resultant ( 
function_code 
sprimary_code 
osecondary.code 
»i0b : RE SKPO.108 () 


! For failure action routine 
' Ist completion code 

! 2nd completion code 

! Address of I0B 


'44 


; FUNCTIONAL DESCRIPTION: 


Moves resultant filename string from the I0B to FFNAME so it 
can be picked up and used when the error is signaled. 


FORMAL PARAMETERS: 
As defined by XPORT. See above ROUTINE declaration for the list and 


WOOO NAA 


DBNAUSWN “SO OONOUESWN S(O OONOUL WI 


PUPP SIG ISISISIVIVIVIVIVITVT 


SNS NSS SS SSNS Oe 


i 
1 
i 
i 
i 
i 
286 meanings of the current formal parameters. 
28 IMPLICIT INPUTS: None 
39 IMPLICIT OUTPUTS: 
59 i F FNAME hy descriptor defined in GLBDAT.BLI that points to the 
59 ‘ resultant filename Se from the I0B pointed to by the 
2 fourth parameter passed to this routine. 
5 i ROUTINE VALUE: 
: COMPLETION CODES: 
599 i The PRIMARY_CODE passed to this routine will also be used as its 
600 completion code. 
i 


SIDE EFFECTS: None 


BEGI Start grab_resultant 


N ! 
$STR_DESC_INIT (DESCRIPTOR = ffname, CLASS = dynamic; 

Pick of the name and length of the file spec. 

$STR_COPY ( STRING = iobLiobst_resul tant] - TARGET = ffname ); 


semcod = .primary_code; ck up and save the error code 
! explaining why this file couldn't 
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' be opened. 
-primary_code 
END; ! End of GRAB_RESULTANT 
-EXTRN XSTSCOPY, STRSFAILURE 
0004 00000 -ENTRY GRAB_RESULTANT, Save R2 
36 600000 0G 00 oF ORNs MOVAB SE TRSDESC. R2 
62 02060000 8F OD 0 MOVL #34471 . SSTRSDESC 
4 A2 04 1 CLRL SSTRSDESC+4 
50 AC 1c C1 1 ADDL3) #28, I0B, RO 
000000006 EF F 01 PUSHAB STRSFAILURE 
E D4 1E CLRL -(SP) 


04000 


; Routine Size: 


; 616 U 0742 


56 bytes, 
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Routine Base: 


1 ZIF DSRPLUS THEN 


M15 
ao$ep=1986 15:09:59 RN 


PUSHR #*M<RO,R2> 
CLR = (SP) 


> Prono 
QCeovnin 


SCODES + 016 


1 
1 
B 
ge ganz 
FB 0 CALLS #5, XSTSCOPY 
D 8 MOVL § PRIMARY_CODE, SEMCOD 
MOVL § PRIMARY-CODE, RO 
D0 000 
04 00037 RET 
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RUNOFF .SRCJRUNOFF .BLI; 


ROUTINE init files (rno_cmd) : NOVALUE = 


'4¢ 


; FUNCTIONAL DESCRIPTION: 


INIT_FILES processes either or both of the initialization files 
that may be present -- DSRSINIT and DSRPLUSSINIT. It attempts to 
open the files in order and, if found, takes input from them before 
the main input file is read. 


i FORMAL PARAMETERS: 


RNO_CMD is the address of the command-line block, passed down from 
RUNOFF. 
' IMPLICIT INPUTS: None 
i IMPLICIT OUTPUTS: None 
i ROUTINE VALUE: 
' COMPLETION CODES: None 
i SIDE EFFECTS: None 
BEGIN ! Start of init_files 
MAP 
rno_cmd : REF $rno_cmd; 
LOCAL 
clh_result 


dsrplus_init, 

keep_reading, 

ptr; 
dsrplus_init = false; 
; Save the original input file. 
clh (clh_push); 
| Try to open logical file DSRPLUSSINIT. CLH expects to find the filespec in fs01. 
ptr = CHSPTR (UPLIT (ZIF X%BLISS (BLISS32) XTHEN ‘DSRPLUSSINIT' 

E *DSRPLUS.INIT® ZFI )); 

fs_init (fs01); 
INCR i FROM 1 TO 12 DO 

fs_wehar (fs01, CHSRCHAR_A (ptr)); 
clh_result = clh (clh_open_init); 
If CLH can open file, save it and try to get next one. 
iF -clh_result EQL clh_normal 
THEN 


BEGIN 
clh (clh_push); 
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> 675 U 0800 1 dsrplus_init = true; 

; of Y H 1 ! END; 

; 088 : 608 \ Try to open logical file DSRSINIT. CLH expects to find the filespec in fs01. 
; 680 U 0805 1 ptr = CHSPTR (UPLIT (ZIF XBLISS (BLISS32) XTHEN ‘DSRSINIT' 

> 681 U 539 1 ZELSE "RUNOFF.INIT' ZFI )); 

; 68 U 0807 1 ' 

; 68 uU 0808 1 fs_init (fs01) 

> 684 uU 0809 1 INCR i FROM 1 TO 8 DO 

5 eH 3 baie : fs_wehar (fs01, CHSRCHAR_A (ptr)); 

; +68 U baig 1 clh_result = clh (clh_open_init); 

; 688 U 0813 1 ! 

; 689 U 0814 1 ' If CLH can open file, start reading from it. Otherwise, try next one. 

; 690 U 0815 1 ! 

; 691 U 0816 1 IF .clh result EQL clh_normal 

; $38 u 0817 1 THEN 

; 69 U 0818 1 BEGIN ! Start processing DSRSINIT file. 
; 694 U 0819 1 

; 695 UW 0820 1 keep_reading = true; 

; 696 U B85; 1 init _file_error = false; 

3 6697 U 08 ; 1 

; 698 U +43 1 WHILE .keep_reading DO 

3 $%° : 4 ¢ ! keep_reading = input_loop (init_file_error); 

s 701 U $858 1 ' Close initialization file. (Same as closing .REQUIRE file.) 

; 702 U 0827 1 } 

: O35 U 0828 1 clh (clh_close_req); 

: 704 U 0829 1 ! 

; 705 U 0830 1 : If an error occurred, recover and close the original source file 

; 706 U 0831 1 ! and the output “file”. 

: 707 U 0836 1 ! 

: 708 U 08335 1 IF .init_file_error 

; 709 U 0834 1 THEN 

s 710 U 0835 1 BEGIN ! Start pop DSRPLUSSINIT 

; 71% U 0836 1 : 

; ar) U 0837 1 ! Pop DSRPLUSSINIT if it was pushed. 

, U 0838 1 ! 

: 716 U 0839 1 IF .dsrplus_init THEN 

3 715 U 0840 1 clh (clh_pop); 

; 7 U 0841 1 ! 3 
ee ald U oats 1 clh (clh_pop); ! Recover and close original source file. 
: ab U Bae 1 : 

s 71 U 0844 1 ! Close (don't delete) output file; return 4. 

: 720 U 0845 1 close_i_o_and_return (false, 4); 

3; 721 U pare 1 : 

; £ é U 0847 1 END; ! End pop DSRPLUSSINIT 

BS U 0848 1 ? 

: 724 U 0849 1 END; ! End processing DSRSINIT file 
; i$? u 0850 1 

3; 726 U 0851 1 IF ,dsrplus_init 

s ver U $826 1 THEN : 

: 728 U 0855 1 BEGIN ! Start processing DSRPLUSSINIT file 
: 169 U 0854 1 clh (clh_pop); 

: 730 U 0855 1 

3. TS U 0856 1 keep_reading = true; 


1$-Se0-1986 01:42:05 yARot1 Bl ingz82 y4.0-749 


RUNOF F Overall DSR process control 


ra) 
S 


ez ¢ U 0857 1 init _filelerror = false; 

ea U 28 1 

: 734 U 1 ee WHILE .keep_reading D 

; 4 5 ¥ re } keep_ reading = rout | loop (init_file error); 

oe. 5 U 8 $6 1 Close initialization file. 

; 738 U 0863 1 

; (39 U 8 64 1 clh (clh_close_req); 

; 740 U 0865 1 

: 741 u 0 98 1 If an error occurred, recover and close original source file 
3 re U 0867 1 ' and output destination. 

; 74 U 8 re 1 i 

> 744 U 0869 1 IF .init_file_error 

> «745 U Bass 1 THEN 

; 746 U 0871 1 BEGIN 

; 747 U ba5§ 1 : 

; 748 U 08735 1 clh (clh_pop); ! Recover and close original source file. 
; 749 U 0874 1 

5; U 0875 1 Close (don't delete) oyteet file; return 4. 

3 3) U 0876 1 close_i_o o_and_return (false, 4); 

: P36 U 0877 1 : 

: go uU 0878 1 END; 

3; «754 U 0879 1 

s Ts U 0880 1 END; ! End processing DSRPLUSSINIT file 
; 756 U 0881 1 ! ns 

s for U Hetty 1 ' Recover original source file. 

; 758 U 0883 1 : 

3; 759 U 0884 1 clh (clh_pop); 

: 760 U 0885 1 

; 761 U 0886 1 END; ! End of INIT_FILES 

> 762 0887 1 XFI 
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; 764 8 1 ROUTINE input_loop (error_condition) = 

: 765 bss i et te “ 

; 766 90 1 !44 

3 fer Be } FUNCTIONAL DESCRIPTION: 

$ ro) 6 38 : INPUT_LOOP reads and processes a single record from the input file. 
: 46 0895 ! FORMAL PARAMETERS: 

5 ae 0897 . 7 ERROR_CONDITION is set to TRUE before return if a file-processing 
; 774 0898 1! error occurred. 

. 99 0899 1! 

; 776 0900 1 ! IMPLICIT INPUTS: None 

Rar 0901 1! 

s 778 844 1 ! IMPLICIT OUTPUTS: None 

3; 779 0903 1! 

; 780 0904 1 ! ROUTINE VALUE: 

: 781 0905 1 ! COMPLETION CODES: 

3 ree 0906 1! 

s 7 0907 1! The routine returns TRUE while there is more input to read; it 
: 784 0908 1! returns FALSE when end-of-file is reached, and also when a file 
; 785 0909 1! error occurs. (in this latter case, the formal ERROR” CONDITION is 
; 786 0910 1! also set.) 

3; 787 0911 #1! 

; «4788 bats 1 ! SIDE EFFECTS: None 

3; «6789 0913 1 !-=- 

: 790 0914 #1 

s 791 0915 2 BEGIN ! Start of input_loop 
: 79 0916 2 LOCAL 

; 79 0917 2 clh_result; 

3 794 0918 2 . 

3; «795 0919 2 clh_result = clh (clh_read_input); 

3; 796 pase 2 

s 797 0921 2 SELECT .clh_result OF 

3; 798 344 SET 

; 799 092 3 

; 800 0924 Cclh_normal] : ! Something was read successfully. 

; 801 0925 ¢ T 

; 802 0926 BEGIN 

; 803 0927 3 kens (); 

3; 804 0928 3 pus (true); 

3; 805 394 § ND; 

; 806 0930 : ; 

3; 807 344 Cclh_end_file] : ! End of initialization file. 

: 808 44 ; T 

; 809 93 RETURN false; 

3 319 0934 . 

3; «811 0935 Cclh_too_long] : ! Record would not fit in input area (ira). 
3 sig 0936 T 

: + B 7 BEGIN ‘ : 

3: «B14 938 erms (rnfrtl, .fs_start (ira), .fs_length (ira)); 

3 6815 0939 cns (); 

: 1¢ 940 us (); 

eth 342 =e 

: 19 94 Cotherwise] : ' Unrecoverable error. Inform user. 

; 820 944 ! 


945 


be at tt et gta gt 
Wrorororororerereny) 
NM —OOCONOULS WN 
jofelelelelelelelelelelea} 
OOOOOOON0ON0O0NO 
PPI & & & s 
OUFWnr—OvO0w 
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ss 


BEGIN 

erm (rnfure, 8. ); 

erm (rnffab ° 3 
-error_condition = true; 
or false; 


TES; 
RETURN true; 
END; ! End of INPUT_LOOP 
.EXTRN RINTES 
OOFC 00000 INPUT_LOOP: 
.WORD Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 MOVAB ERM, R? 
56 000000006 00 9E 90009 MOVAB PUS, 
55 000000006 00 9€ 00010 MOVAB KHAR, RS 
54 000000006 00 9E 00017 MOVAB IRA+{2, R4& 
05 DD OOO1E PUSHL #5 
000000006 00 01 FB 900 0 CALLS #1, CLH 
53 50 DO 00027 MOVL RO, CLH_RESULT 
52 01 DO 0002A MOVL , 
01 53 1 90020 CMPL  CLH_RESULT, #1 
20 12 00030 BNEQ 3$ 
52 D4 00032 CLRL = R2 
64 DS 00034 TSTL  IRA+12 
09 14 00036 BGTR —'1$ 
65 006 8F 9A 00038 MOVZBL #RINTES, KHAR 
64 01 CE 0003C NEGL #1, IRA+12 
OC 11 0003F BRB 2$ 
50 F8 A& DO 00041 18: OVL IRA+4, RO 
65 60 9A 00045 MOVZBL (RO), KHAR 
F8 AG D6 00048 INCL IRA+4 
64 D7 0004B DECL IRA+12 
01 DD 99040 2$: PUSHL #1 
66 01 FB O4F CALLS #1, PUS 
02 53 1 00052 3$: CMPL  CLH_RESULT, #2 
04 12 0005 BNEG  4§ 
2 f B8ee CLRL Re 
1 00059 BRB 9 
04 53 D1 00058 4$: CMPL  CLH_RESULT, #4 
30 12 0005 BNEG /7$§ 
2 D4 00060 CLRL = R2 
64 DD 9062 PUSHL  IRA+12 
FL AG DD 00064 PUSHL IRA 
000000006 BF 0D 9067 PUSHL #RNFRTL 
000000006 00 3 FB 06D CALLS #3, ERMS 
4 05 00074 TSTL RA+12 
9 14 16 GTR $ 
65 006 BF 9A 0007 MOVZBL #RINTES, KHAR 
64 1 CE 0007¢ MNEGL #1, IRA*+12 
C 11 0007F BRB 6$ 


p=19B4 15:09:59 
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RUNOFF ..SRCJRUNOFF .BLI; 


rom 
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5 F8 AS 00 
A fot 
FB AG bg 
66 ; P 
: a 
00000000G 8F oD 
67 3 FB 
B 
000000006 8F ODD 
67 83 Fe 
04 BC a 
04 11 
50 01 00 
04 
50 D4 
04 


; Routine Size: 182 bytes, Routine Base: S$CODE$ + O1FE 


; &3* 0957 1 


p=198 


a 4: 


9:55 


IRA+4, RO 
(RO), KHAR 
IRA+ 


#3, ERM 

4g @ERROR_CONDITION 
#1, RO 

RO 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRCJRUNOFF .BLI; 
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- RUNOFF. RUNOFF .BLI; 
; @3> 0958 1 ZIF XBLISS(BLISS32) XTHEN 
; § : 959 1 ROUTINE input_file_scan ( rno_cmd 
; 4 44 ! input file_name : SSTR_DESCRIPTOR (CLASS = dynamic) 
; 839 404 1 !+4 
; gry Bee? } } FUNCTIONAL DESCRIPTION: 
$ ate 0965 1! This routine makes the neetes calls to the VMS routine LIBSFIND_ hens 
; «84 0966 1! Also, for DSRPLUS, it does the file type resolution. What this mea 
3; 844 0967 1! is t at the user didn’ t specify an extension and the first FIND FILE 
; 845 0968 1! docsn' t locate a file with a .RN_ extension, then we will try ou Own 
; are 0969 1! List of extensions stortins with’ .RNO. Dots structure IPFTO contains 
; Bh 0970 1! Ig List of known extensions in the order in which we will look for 
: 983 948 } them. But, for the sake of documentation, here is that List: 
; 850 0975 1! Input file Maps to this output 
; 4851 0974 1! filetype file filetype 
; S26 0975 1! 
s 83 0976 1! .RNO . MEM 
; 854 0977 1! -RTB MET (DSRPLUS only) 
; 855 0978 1! .RNT -MEC 
; 856 0979 1! . RNX MEX 
; 657 0980 1! .RND .d0 
; 858 0981 1! .RNH HLP 
; 859 0982 1! . RNB -BLB 
; 860 0983 1! .A2NC .CCO 
3; 861 0984 1! .RNE -ERR 
3 B66 0985 1! ~RNL .PLM 
; 86 0986 1! »RNM MAN 
: 86 0987 1! . RNP .OP 
3; 865 0988 1! .RNS STD 
3; 8 0989 1! othe Wild card (DSRPLUS only) 
3; 867 0990 1! 
; 868 0991 1! Note that this routine is conditionalized to be ecemeee only if 
3 9 0992 1! the VMS implementation is being built. As for PS-20 {hel enente- 
: 870 0993 1! tion, the input and output file extensions are Joleul ted within the 
3; 871 0994 1! command Line interface in RNCT20. However, this will not take care 
3 ors 3444 { of the TOPS-10 (or any future PDP-11) implementation. 
3; 874 0997 1 ! FORMAL PARAMETERS: 
: 875 0998 1! b 
: 876 0999 1! RNO_CMD Data structure from the CLI. This is where we will 
3 {As 4 : get the filespec string that the user entered. 
3; 879 1908 7 | INPUT_FILE_NAME Address of a string descriptor into which we will 
3 Sat Or i } put the filespec resulting from our efforts. 
; 88 1005 1 ! IMPLICIT INPUTS: None 
: 88 1 06 1! 
3; 884 1 1 ! IMPLICIT OUTPUTS: None 
; 885 1008 1! 
: ty] 1009 1 ! ROUTINE VALUE: 
; 88 1010 1! 
; 888 1011 1! 1 = Normal return , 
; 889 1 \¢ 1! 4 = Fatal return -- file not found 
: 890 1013 1! 
s 91 1014 1 ! SIDE EFFECTS: None 
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° ctx 

-default_file_specification Z 

° ! No related file specification 
erms_stv_adr ! Secondary RMS error code 
grms_user_flags ! User flags 


MIMPOPONS: 
WN —SOOWONOUESWN “SO OONOUSWN OOO 


ZIF dsrplus XTHEN 
IF .rms_status EQL RMSS$_FNF ! If a file wasn't 


v04-000 RUNOFF .SRCJRUNOFF .BLI; 
§ 5 leo 
B3e : + ! Start of input, loop 
£38 : rno_cmd : REF $rno_cmd; 
898 1 BIND 
899 ¢ passed_file_spec = rno_cmd Crno$t_input] : $STR_DESCRIPTOR(), 
sie ? ip_file_spec = .input_File_name :“$STR_DESCRIPTOR‘); 
90 5 LOCA 
90 § rms_status, 
904 rms_Stv_adr : INITIAL(-1) 
905 8 rms_user_flags : INITIAL (2), 
306 4 default_File_specification : SSTR_DESCRIPTOR (CLASS = dynamic); 
908 1 default_file specification (str$b_dtype] = str$k_dtype_t; ' ASCII text (8-bit) 
90 ¢ default_file specification Cstr$b_class] = str$k_class_f; ! Fixed (Scalar) String Descriptor 
910 default_file_specification CSTRSH_LENGTH] = 4; 
| : default_file_specification CSTRSA_POINTER] = .ipftop(0J; 
; § ipftyp = -1; ! To indicate that we haven't mapped against IPFTOP 
1 8 rms_status = LIBSFIND_FILE ( passed_file_spec 
1 9 --input_file_name 
1 0 
: 1 
2 § 
4 
5 
6 
7 
8 
9 
0 
2 
4 


2 AND ! = found and a 

2 CHSFAIL( CHSFIND_CH( .passed_file_spec(Cstr$h_length]_ ! filetype was not 

2 ogpesger.j tle _specletrae pointer) ! specified, 
1 98 THEN “ro alta | 
4 BEGIN ! We will try our own default extension(s). 

3 it Lffctx = 0; ! To start searching all over again. | 


! Search all input filetypes until we find one: 
INCR ipftyp FROM 0 TO (ipftct - 1) DO 
BEGIN’ , 


DOCOCOCOCOCSCOCCOSSSSOSOOSOSOVSOOCSOOC COO OOCOCOCOCOOOOOOOOOOOOO 
PVPS SST TIE BS ES ES BB EE WAAAY 2 


WDOODODODOVOOOVODODOOOVDOODOOODODODODNDONOONO 
Oo 


SRGEAE 
Wr —-OOOnNou 


ates 


z 
o 


! Point to the currently indexed input filetype option. The 
' Length field has already been initialized to 4 outside of 
!' this INCR Loop. 


default_file_specification CSTRSA_POINTER) = .ipftopl.ipftyp): 


! Now see if there is a file with the specified filename and 
! the currently indexed input filetype option. 


S33 


RIPIDPPIPININININIPINIPINIMPYPINIPIPINININIPYNIPINIPIPUNINYIAINPIPIPODINIPINIPIPIPIPIPIPIPINIPIPIPIPIPUPIPINPUNUNI 


me ee ee ee ee a a ee ee ed ad a? ed 8d 2d ed = 8 


eccecccccccccccccccccccccce 


oO 
LLLLELLL 
ONO — 


SSsF 


—Owooe 
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; 949 U 107 rms_status = LIBSFIND_FILE ( passed_file_spec 
a uv 4 i . s;inputctite “none 
: 9 ; U 1075 : efauit file_specification 
; 95 U1 6 No felated file specification 
: 82e U 107 rms_ stv “adr ! Secondary RMS error code 
; 955 U 1078 2 ' User flags 
g 
eee ; 
; 938 » i IF rms. status EQL RMS NORMAL THEN EXITLOOP 
: 960 U1 END; f'wh 4 
361 1084 “FI End of w ot we do if’ ¢ rst test didn’t find a file 
: 96 1086 IF .rms_status EQL RMS$_NORMAL ! Succeeded in finding (any type)? 
: 964 108 THEN 2 
. ee ~~ 
: 967 1090 ! Ap off the name and length of the file spec for ERROR.BLI 
. ee: iee-fapeee © oig-HUg-aee ESTRMA-PORETAN? 
3 specc = e_ spec F 
: 970 v 1098 3 uF dsrplus “THEN re . 
: 971 U 1094 IF tiie GTR 0) ! If we didn't find an RNO file, tell the 
; 97 U 1095 user just what we did find. 
: ar U 1099 af] erm (rnfoft); ! File type ‘'.RNO’' not found. Processing file xx 
92? 44 ; hw ! Exit saying we found an input file. 
: 977 1100 $ 
: 3f5 1103 LOCAL | 
3 980 1103 3 spec_length, 
: +} 1108 3 spec_ptr; 
: 98 1106 ; spec_ptr = .passed_file_spec Cstr$a_pointer]; | 
: 4) 1108 ; spec_length = .passed_file_spec Cstr$h_lengthJ; 
: 986 1109 3 erme (rnfcoi, .spec_ptr, .spec_length, .semcod); 
3; 987 1110 ; ae. stv adr EQL i f ENP = 
Z 43 11) L T .rms_status ) 
3 45 1118 ; SIGNAL ( .rms_status, .rms_stv_adr ); 
3 43 1115 3 * i Exit saying we couldn't find an input file. 
: 99% 1117 3 END; ! End of routine INPUT_FILE_SCAN 


003C 00000 INPUT_FILE_SCAN: 


-WORD Save Arf (fe R4,RS 0959. 


$g coooooonc gp pe eones ERAN geen: : 
3 04 AC 7D C mOva RNO_¢ a ; 1038 
E 01 CE 00010 MNEGL RMS. STV_ADR . 10 


: Routine Size: 


o 
o 
. 
. 
. 
° 
a 
. 
° 

. 
oe 
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2 0 
8 AE BARE OR OR F 08 
C Af 00000006 00 D 
000000006 0 1 
E 0 
08 AE 9F 
7E Be 
14 af F 
sitet * 00 OF 
88 bb 
000000006 90 Fe 
4 0 D 
00010001 + =8F 33 } 
000000006 00 04 A 96 
000000006 00 6 C 
50 01 00 
04 
51 04 ag 0 
50 6 C 
000000006 00 oD 
50 0D 
51 0D 
000000006 8F oD 
000000006 00 04 FB 
FFFFFFFF 8©68F 04 AE 01 
07 12 
54 0D 
65 01 FB 
08 11 
04 AE OD 
54 0D 
65 02 FB 
50 04 00 
04 


bytes, Routine Base: S$CODE$S + 02B4 


1 XF1 
1 END 
0 ELUDOM 


PSECT SUMMARY 
Bytes 


4 
8 NOVEC ,NOWRT, 


AAAS PAA Ss 


— 
wr 


MD OA LS MO UIM OO Lima Vows FDO MOOW’WSMOWOVIW —— 
~m 
bad 


FS OOOOOOWODO NINA OO 


SOOCOCOoooooCoooooooooooooooooQooOooooooo 
Ww 
wn 


SOoOOCOCOCOOSOSCOOOCOOOOOOCOOCOSOOOOOOOOOOOOoOOoOO 
COOCCOCOOCCOCOCCCOCSCSOOCOSOOOOCOOOOOOOOOOOOoOoOOo 


! End of module 


92 NOVEC, WRT, RD ,NO 
54 RD 


t 91:36:03 = PANETT BL lage se ve-0-76 


RUNOFF. RUNOFF .BLI; 


s 
417694726 DEFAULT FILE th 


IF 
IPFTOP, DEFAULT_FICE_SPECIFICA 
#1, IPETYP 


RMS_STV_ADR 
DEFAULT FILE. SPECIFICATION 
INPUT_FILE_NAME 
#7, LIBSFIn® FILE 

0; RMS_STATOS 

MS_STATUS, #65537 


3), IRAC+16 
), IRAC+20 


» SPEC_PTR 

Spore c-CENGTH 

SPEC_LENGTH 
PEC PTR 


AnNNGNAKRLS Bel -WAs-2—.T- wn 
maelUC lO OS ~~ VMN so 
Deal 2) 


#4, ERME 
RMS _STV_ADR, #-1 
RMS_STATUS 

a. LIB$SIGNAL 
RMS_STV_ADR 


RMS STATUS 
#2, LIBSSIGNAL 
#4, RO 


LIBSSIGNAL 


REL, pinedhe'od Big br Ef 
REL, CON,NOPIC,ALIGN(2) 
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v04-000 


Library Statistics 


-------- Symbols -------- 
File Total Loaded Percent 
~$355$0UA28: SYSLIB]STARLET 43231 9776 3 Q 
“$255$DUA28: (CSYSLIBIXPORT.L 30; 1 590 11 1 
“$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 127 10 


COMMAND QUALIFIERS 


RUNOFF ..SRCJRUNOFF .BLI; 


Pages Processing 
Mapped Time 
581 00:01.0 
252 00:00.6 
86 00:01.0 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: RUNOFF /OBJ=O0BJ$:RUNOFF MSRC$:RUNOFF /UPDATE=(ENH$: RUNOFF ) 


; Size: 854 code + 492 data bytes 
00:28.3 


Run Time: 728. 
Elapsed Time: 00:58.5 
Lines/CPU Min: 371 
Lexemes/CPU-Min: 42594 
peeery Used: 251 pages 
Compilation Complete 


i 


CORPORATION 


POUIPMENT 
ARY 


NTIAL_ AND PROPRIET 


